home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / elkmoon.dir / 00134.ls < prev    next >
Encoding:
Text File  |  1995-12-11  |  666 b   |  31 lines
  1. on mouseDown
  2.   puppetSound("ExitB")
  3.   set Lob to the number of cast "exit.yellow"
  4.   set HiB to the number of cast "exit.red"
  5.   puppetSprite(14, 1)
  6.   set the castNum of sprite 14 to Lob
  7.   updateStage()
  8.   startTimer()
  9.   repeat while the timer < 15
  10.     nothing()
  11.   end repeat
  12.   set the castNum of sprite 14 to HiB
  13.   updateStage()
  14.   startTimer()
  15.   repeat while the timer < 15
  16.     nothing()
  17.   end repeat
  18.   set the castNum of sprite 14 to Lob
  19.   updateStage()
  20.   startTimer()
  21.   repeat while (the timer < 15) and soundBusy(1)
  22.     nothing()
  23.   end repeat
  24.   set the castNum of sprite 14 to HiB
  25.   updateStage()
  26.   puppetSprite(14, 0)
  27.   blackFrame()
  28.   sound stop 2
  29.   play done
  30. end
  31.